home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / Matlab mode / matlabMenu.tcl < prev    next >
Encoding:
Text File  |  1999-07-10  |  3.7 KB  |  129 lines
  1. ################################################################################
  2. #
  3. # matlabMenu.tcl, part of the matlab mode package
  4. # 
  5. # MATLAB menu definitions
  6. # 
  7. ################################################################################
  8.  
  9. proc matlabMenu.tcl {} {}
  10.  
  11. ################################################################################
  12. # Define the MATLAB menu
  13. ################################################################################
  14.  
  15. Menu -n $MATLMenu -M MATL -p matlabMenuItem {
  16.     "<O<U/MswitchToMatlab"
  17.     "<O<U/CcommandWindow"
  18.     "<O<U/HcommandHistory"
  19.     "(-"
  20.     "<O<U/OeditInMatlab"
  21.     "<O<U/SexecuteSelection"
  22.     "<O<U/EsaveAndExecute"
  23.     "<O<U/DopenSelection"
  24.     "(-"
  25.     {Menu -n commandHelp -M MATL -p matlabMenuItem {
  26.         "<O<U//normalHelp"
  27.         "<O<U<I/DhelpSelection"
  28.         "<O<U/tsearchDocumentation"
  29.         "makeDocumentation"
  30.     }}
  31.     {Menu -n workspace -M MATL -p matlabMenuItem {
  32.         "<O<U/PrebuildPath"
  33.         "addToPath"
  34.         "cdToWin"
  35.         "<O<U/KclearWorkspace"
  36.         "<O<U<I/KclearProcedure"
  37.         "<O<U/FcloseAll"
  38.         "clearEventQue"
  39.     }}
  40.     {Menu -n debug -M MATL -p matlabMenuItem {
  41.         "debugInMatlab"
  42.         "<O<U/BstopIfError"
  43.         "stopInFile"
  44.         "stopAtCurrentLine"
  45.         "<B<I/SstepOneLine"
  46.         "clearAllBreakpoints"
  47.         "fileBreakpoints"
  48.         "<O<U/GopenErrorFile"
  49.     }}
  50.     {Menu -n quickOptions -M MATL -p matlabMenuItem {
  51.         "clearOnSave"
  52.         "webHelp"
  53.     }}
  54. }
  55.  
  56. ################################################################################
  57. # Mark the quickOptions
  58. ################################################################################
  59.  
  60. markMenuItem quickOptions clearOnSave $MATLmodeVars(clearOnSave)
  61. markMenuItem quickOptions webHelp $MATLmodeVars(webHelp)
  62.  
  63. ################################################################################
  64. # Call Menu item procs
  65. ################################################################################
  66.  
  67. proc matlabMenuItem {menu item} {
  68.     global MATLMenu
  69.     switch -- $menu $MATLMenu {
  70.         switch -- $item {
  71.             switchToMatlab     {matlab}
  72.             commandWindow      {matlabCmdWindow}
  73.             commandHistory     {matlabCmdHistWindow}
  74.             editInMatlab       {editInMatlab}
  75.             saveAndExecute     {matlabSaveAndExecute}
  76.             executeSelection   {matlabDoSelectionOrLine}
  77.             openSelection      {matlabOpenSelection}
  78.             default            {catch {matDummyMenuItem $menu $item}}
  79.         }
  80.     } workspace {
  81.         switch -- $item {
  82.             rebuildPath        {matlabRebuildPath}
  83.             clearWorkspace     {matlabClear}
  84.             clearProcedure     {matlabClearProcedure}
  85.             closeAll           {matlabCloseAll}
  86.             addToPath          {matlabAddToPath}
  87.             cdToWin            {matlabCdToWin}
  88.             clearEventQue      {MATL::clearEventQue}
  89.         }
  90.     } commandHelp {
  91.         switch -- $item {
  92.             normalHelp            {matlabHelp}
  93.             searchDocumentation   {matlabSearchHelpDialog}
  94.             helpSelection         {matlabHelpSelection}
  95.             makeDocumentation     {makeMatlabHTML}
  96.         }
  97.     } debug {
  98.         switch -- $item {
  99.             debugInMatlab        {debugInMatlab}
  100.             stopIfError          {matlabStopIfError}
  101.             stopInFile           {matlabStopInFile}
  102.             stopAtCurrentLine    {matlabStopAtCurrentLine}
  103.             stepOneLine          {matlabDebugStep}
  104.             clearAllBreakpoints  {matlabDbClear}
  105.             fileBreakpoints      {matlabDebugStatus}
  106.             openErrorFile        {matlabOpenErrorFile}
  107.         }
  108.     } quickOptions {
  109.         switch -- $item {
  110.             clearOnSave       {matlabMenuSwap clearOnSave}
  111.             webHelp           {matlabMenuSwap webHelp}
  112.         }
  113.     }
  114. }
  115.  
  116.  
  117. ################################################################################
  118. # Change quickOptions
  119. ################################################################################
  120.  
  121. proc matlabMenuSwap {item} {
  122.    global MATLmodeVars modifiedModeVars
  123.  
  124.    set MATLmodeVars($item) [expr ! $MATLmodeVars($item)]
  125.    lappend modifiedModeVars [list $item MATLmodeVars]
  126.    markMenuItem quickOptions $item $MATLmodeVars($item)
  127. }
  128.  
  129.